From 5ec6896ce6475a8c2bf25519b8227ce720b4a3db Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 23 Feb 2007 19:12:52 +0000 Subject: [PATCH] (custom-save-all): Canonicalize custom-file before storing it in recentf-exclude. --- lisp/cus-edit.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ce429a40823..c49328ac40d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4192,11 +4192,13 @@ if only the first line of the docstring is shown.")) (when (and (null custom-file) init-file-had-error) (error "Cannot save customizations; init file was not fully loaded")) (let* ((filename (custom-file)) - (recentf-exclude (if recentf-mode - (cons (concat "\\`" - (regexp-quote (custom-file)) - "\\'") - recentf-exclude))) + (recentf-exclude + (if recentf-mode + (cons (concat "\\`" + (regexp-quote + (recentf-expand-file-name (custom-file))) + "\\'") + recentf-exclude))) (old-buffer (find-buffer-visiting filename))) (with-current-buffer (let ((find-file-visit-truename t)) (or old-buffer (find-file-noselect filename))) -- 2.30.2